function ind = blockind(index,bsize)
ind=[];
ind(1:bsize,:)=seqa((index(1,:)-1)*bsize+1,1,bsize);
for i=2:rows(index);
    ind=[ind;seqa((index(i,:)-1)*bsize+1,1,bsize)];
end;